home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / wc15_b.arc / REPORT1.WMS < prev    next >
Text File  |  1991-03-22  |  5KB  |  145 lines
  1. ;Introduction macro for WinComm service request
  2.  
  3. STOP
  4. CLEAR
  5.  
  6.    DIALOGBOX 50, 50, 229, 88, 21, "WinComm Service Request"
  7.       LTEXT 7, 4, 220, 33, "This macro is named REPORT1.WMC.  REPORT1 is a macro that allows creation of service request files for WinComm users.  It is a part of the 'SOLIS.WMC' macro that is used to connect to "
  8.       LTEXT 6, 29, 220, 33, "SOLIS, Synappsys On-Line Information Service.  SOLIS is a WinComm based host, provided by Synappsys, that users can call to exchange files and submit service requests."
  9.       DEFCANCELBUTTON 87, 64, 50, 15, "&OK"
  10.    DEND
  11. DO i = DIALOG? UNTIL(i != 255)
  12.  
  13. DE$ = "temp.txt"
  14. FCLOSE(FOPEN(4096,DE$))     ;creates a null file called temp.txt
  15. date_time$ = LEFT(STRTIME(TIME?),10)+" "+MID(STRTIME(TIME?),12,5)
  16. name_time$ = RIGHT(date_time$,8)
  17. SUBST(" ",name_time$,"_",1)
  18. SUBST(":",name_time$,"",1)
  19. macdir$=LOWERCASE(GETSESSSTR(28))+"\"
  20. var2=0 var3=0 var4=0 var5=0 var6=0 var7=0 
  21. var1=1
  22. var1$="WinComm - Fill In Above,Dialog Editor,Utility Program,Keyboard Remapper,WinLink,SOLIS Terminal,"
  23. var2$="WinComm - Fill In Above"
  24. var3$="Real Mode,Standard Mode,386 Enhanced Mode,"
  25. var4$="Real Mode"
  26. af$=""
  27. hc = FOPEN(2,"solis.que") 
  28. IF(hc==-1){
  29.     var5$="" var6$=var5$
  30. }
  31. ELSE{
  32.     var5$ = FREAD(hc,255) var6$ = FREAD(hc,255) FCLOSE(hc)
  33. }
  34. inmsg=1
  35.    DIALOGBOX 22, 23, 295, 208, 17
  36.       CTEXT 83, 4, 119, 9, "WinComm Service Request"
  37.       GROUPBOX 15, 26, 58, 43, "Session Type"
  38.       BEGINGROUP_RADIOBUTTON 19, 36, 43, 10, "Terminal", VAR1
  39.       RADIOBUTTON 19, 47, 31, 10, "Phone", VAR2
  40.       ENDGROUP_RADIOBUTTON 19, 58, 32, 10, "PC/PC", VAR3
  41.       CHECKBOX 81, 29, 47, 10, "Connected", VAR4
  42.       CHECKBOX 81, 39, 59, 10, "Macro Loaded", VAR5
  43.       CHECKBOX 81, 49, 63, 10, "Macro Running", VAR6
  44.       CHECKBOX 81, 59, 76, 10, "Compiler Problem", VAR7
  45.       RTEXT 159, 29, 49, 9, "Date/Time:"
  46.       RTEXT 159, 44, 49, 9, "Version No:"
  47.       RTEXT 167, 58, 41, 9, "Operator:"
  48.       EDIT 209, 27, 70, 12, DATE_TIME$
  49.       EDIT 209, 42, 32, 12, VER$
  50.       EDIT 209, 57, 70, 12, OP$
  51.       SEDIT 13, 109, 269, 65, DE$
  52.       CTEXT 13, 99, 260, 9, "Type in a description of the problem, how and if it was resolved."
  53.       CTEXT 111, 74, 70, 8, "Windows Mode:"
  54.       UPDATEPB 13, 183, 50, 14, "Save &As"
  55.       DEFCANCELBUTTON 230, 183, 50, 14, "E&xit"
  56.       UPDATEPB 67, 183, 50, 14, "Set for &Send"
  57.       UPDATEPB 121, 183, 50, 14, "&Edit Report"
  58.       UPDATEPB 175, 183, 50, 14, "Delete &Queue"
  59.       LTEXT 32, 74, 50, 8, "Product Type:"
  60.       COMBOBOX 12, 83, 92, 42, , VAR1$, VAR2$
  61.       COMBOBOX 108, 83, 76, 42, , VAR3$, VAR4$
  62.       LTEXT 196, 74, 80, 8, "Message Files to Send:"
  63.       COMBOBOX 188, 83, 91, 42, , VAR5$, VAR6$
  64.       GROUPBOX 120, 9, 102, 16, ""
  65.       VTEXT 122, 14, 97, 8, af$
  66.       RTEXT 81, 15, 36, 8, "File Name:"
  67.    DEND
  68. mmsg_loop:
  69. DO dg = DIALOG? UNTIL(dg!=255)
  70. if(dg==100){                    ; save as
  71.     if(NULL(af$)) a$ = name_time$+".RPT"
  72.     IF(SAVEASDLG("Save Report as what File Name",a$) == 1){
  73.         a$=LOWERCASE(a$) SUBST(macdir$,a$,"",1) af$=a$
  74.         GOSUB save_file  
  75.     }
  76.     UPDATEDLG(0) GOTO mmsg_loop
  77. }
  78. if(dg==101){                    ; file to send
  79.     if(NULL(af$)){
  80.         a$ = name_time$+".RPT"
  81.         IF(SAVEASDLG("Save Report as what File Name",a$) == 1){
  82.         a$=LOWERCASE(a$) SUBST(macdir$,a$,"",1) af$=a$
  83.         GOSUB save_file
  84.         SUBST(af$+",",var5$,"",1)
  85.             var5$=var5$+af$+"," var6$=af$
  86.         UPDATEDLG(32)
  87.         }
  88.         else UPDATEDLG(0)
  89.         GOTO mmsg_loop
  90.     }
  91.     a$=af$
  92.     GOSUB save_file
  93.     SUBST(af$+",",var5$,"",1)
  94.     var5$=var5$+af$+"," var6$=af$
  95.     UPDATEDLG(32)
  96.     GOTO mmsg_loop
  97. }
  98. if(dg==102){            ; edit file
  99.     IF(FILEOPENDLG("Select a report for editing","*.rpt",a$) == 1){
  100.     GOSUB read_file
  101.     a$=LOWERCASE(a$) SUBST(macdir$,a$,"",1) af$=a$
  102.     UPDATEDLG(255)
  103.     }
  104.     else UPDATEDLG(0)
  105.     GOTO mmsg_loop
  106. }
  107. if(dg==103){            ;remove que
  108.     IF(NULL(var5$)) UPDATEDLG(0)
  109.     ELSE{
  110.     a$ = var6$+","
  111.     SUBST(a$,var5$,"",1) var6$=EXTRACT(",",var5$,1)
  112.     UPDATEDLG(32)
  113.     }
  114.     GOTO mmsg_loop
  115. }
  116. hc = FOPEN(4096,"WCTERM.QUE") FWRITE(hc,255,var5$) FWRITE(hc,255,var6$) FCLOSE(hc)
  117. GOTO exit
  118.  
  119. save_file:
  120.     hd=FOPEN(4096,a$) hs=FOPEN(2,"TEMP.TXT")
  121.     FWRITELN(hd,STRINT(var1)) FWRITELN(hd,STRINT(var2)) FWRITELN(hd,STRINT(var3))
  122.     FWRITELN(hd,STRINT(var4)) FWRITELN(hd,STRINT(var5)) FWRITELN(hd,STRINT(var6))
  123.     FWRITELN(hd,STRINT(var7)) FWRITELN(hd,date_time$) FWRITELN(hd,ver$) FWRITELN(hd,op$)
  124.     FWRITELN(hd,var2$) FWRITELN(hd,var4$)
  125.     DO
  126.           str$ = FREAD(hs,255) FWRITE(hd,255,str$)                  
  127.     UNTIL(NULL(str$))
  128.     FCLOSE(hd) FCLOSE(hs) RETURN
  129.  
  130. read_file:
  131.     hd=FOPEN(4096,"TEMP.TXT") hs=FOPEN(2,a$)
  132.     var1 = VALINT(FREADLN(hs)) var2 = VALINT(FREADLN(hs)) var3 = VALINT(FREADLN(hs))    
  133.     var4 = VALINT(FREADLN(hs)) var5 = VALINT(FREADLN(hs)) var6 = VALINT(FREADLN(hs))    
  134.     var7 = VALINT(FREADLN(hs)) date_time$=FREADLN(hs) ver$=FREADLN(hs) op$=FREADLN(hs)
  135.     var2$ = FREADLN(hs) var4$ = FREADLN(hs)  
  136.     date_time$ = LEFT(date_time$,(LEN(date_time$)-2)) 
  137.     ver$ = LEFT(ver$,(LEN(ver$)-2)) op$ = LEFT(op$,(LEN(op$)-2))  
  138.     var2$ = LEFT(var2$,(LEN(var2$)-2)) var4$ = LEFT(var4$,(LEN(var4$)-2))  
  139.     DO
  140.         str$ = FREAD(hs,255) FWRITE(hd,255,str$)
  141.     UNTIL(NULL(str$))
  142.     FCLOSE(hd) FCLOSE(hs) RETURN
  143. exit:
  144. end
  145.